/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Oberon⁄F™ 1.2 / Preinstalled version / Obx / Mod / Lines

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 05 4c 69 6e 65 73 00 | 00 00 00 00 00 00 00 00 |..Lines.|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 6f 4f 44 43 6f 62 6e | 46 01 00 00 00 00 00 00 |.oODCobn|F.......|
|00000050| 00 00 00 00 00 1c 9a 00 | 00 01 3e ae 06 bf 7e ae |........|..>...~.|
|00000060| 06 bf 8d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 e2 a6 00 00 |........|........|
|00000080| 43 44 4f 6f 00 00 00 00 | 82 f1 44 6f 63 75 6d 65 |CDOo....|..Docume|
|00000090| 6e 74 73 2e 53 74 64 44 | 6f 63 75 6d 65 6e 74 44 |nts.StdD|ocumentD|
|000000a0| 65 73 63 00 f1 44 6f 63 | 75 6d 65 6e 74 73 2e 44 |esc..Doc|uments.D|
|000000b0| 6f 63 75 6d 65 6e 74 44 | 65 73 63 00 f1 43 6f 6e |ocumentD|esc..Con|
|000000c0| 74 61 69 6e 65 72 73 2e | 56 69 65 77 44 65 73 63 |tainers.|ViewDesc|
|000000d0| 00 f1 56 69 65 77 73 2e | 56 69 65 77 44 65 73 63 |..Views.|ViewDesc|
|000000e0| 00 f0 53 74 6f 72 65 73 | 2e 53 74 6f 72 65 44 65 |..Stores|.StoreDe|
|000000f0| 73 63 00 00 00 00 00 00 | 00 00 00 07 00 00 00 17 |sc......|........|
|00000100| 1c 00 00 00 00 00 83 f1 | 44 6f 63 75 6d 65 6e 74 |........|Document|
|00000110| 73 2e 4d 6f 64 65 6c 44 | 65 73 63 00 f1 43 6f 6e |s.ModelD|esc..Con|
|00000120| 74 61 69 6e 65 72 73 2e | 4d 6f 64 65 6c 44 65 73 |tainers.|ModelDes|
|00000130| 63 00 f1 4d 6f 64 65 6c | 73 2e 4d 6f 64 65 6c 44 |c..Model|s.ModelD|
|00000140| 65 73 63 00 f1 53 74 6f | 72 65 73 2e 45 6c 65 6d |esc..Sto|res.Elem|
|00000150| 44 65 73 63 00 f2 04 00 | 00 00 00 00 00 00 65 1b |Desc....|......e.|
|00000160| 00 00 09 00 00 00 5d 1b | 00 00 00 00 00 00 00 82 |......].|........|
|00000170| f1 54 65 78 74 56 69 65 | 77 73 2e 53 74 64 56 69 |.TextVie|ws.StdVi|
|00000180| 65 77 44 65 73 63 00 f1 | 54 65 78 74 56 69 65 77 |ewDesc..|TextView|
|00000190| 73 2e 56 69 65 77 44 65 | 73 63 00 f2 02 00 00 00 |s.ViewDe|sc......|
|000001a0| 00 00 00 00 00 00 00 00 | 07 00 00 00 07 1b 00 00 |........|........|
|000001b0| 00 00 00 83 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|000001c0| 53 74 64 4d 6f 64 65 6c | 44 65 73 63 00 f1 54 65 |StdModel|Desc..Te|
|000001d0| 78 74 4d 6f 64 65 6c 73 | 2e 4d 6f 64 65 6c 44 65 |xtModels|.ModelDe|
|000001e0| 73 63 00 f2 06 00 00 00 | 00 00 00 00 09 19 00 00 |sc......|........|
|000001f0| 0f 00 00 00 01 19 00 00 | 00 00 00 00 00 00 5a 01 |........|......Z.|
|00000200| 00 00 00 82 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|00000210| 41 74 74 72 69 62 75 74 | 65 73 44 65 73 63 00 f2 |Attribut|esDesc..|
|00000220| 04 00 00 00 00 00 00 00 | 2f 00 00 00 00 00 00 00 |........|/.......|
|00000230| 22 00 00 00 00 00 00 00 | 00 01 00 00 00 00 48 65 |".......|......He|
|00000240| 6c 76 65 74 69 63 61 00 | 7c be 01 00 00 00 00 00 |lvetica.||.......|
|00000250| 90 01 00 00 00 00 f0 03 | 00 00 01 82 f2 0d 00 00 |........|........|
|00000260| 00 00 00 00 00 7a 00 00 | 00 00 00 00 00 22 00 00 |.....z..|....."..|
|00000270| 00 00 00 00 00 00 01 00 | 00 00 00 48 65 6c 76 65 |........|...Helve|
|00000280| 74 69 63 61 00 7c be 01 | 00 01 00 00 00 90 01 00 |tica.|..|........|
|00000290| 00 00 00 14 00 00 00 00 | 5e 00 00 00 01 14 00 00 |........|^.......|
|000002a0| 00 00 41 04 00 00 01 30 | 00 00 00 00 4b 00 00 00 |..A....0|....K...|
|000002b0| 01 10 00 00 00 00 6b 01 | 00 00 01 14 00 00 00 00 |......k.|........|
|000002c0| 1e 00 00 00 01 13 00 00 | 00 00 2c 00 00 00 01 18 |........|..,.....|
|000002d0| 00 00 00 00 15 00 00 00 | 01 2a 00 00 00 00 be 03 |........|.*......|
|000002e0| 00 00 02 82 f2 0d 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 22 00 00 | 00 00 00 00 00 00 01 00 |....."..|........|
|00000300| 00 00 00 48 65 6c 76 65 | 74 69 63 61 00 7c be 01 |...Helve|tica.|..|
|00000310| 00 00 00 00 00 bc 02 00 | 00 00 00 06 00 00 00 00 |........|........|
|00000320| 04 04 00 00 01 29 00 00 | 00 00 3e 03 00 00 00 0a |.....)..|..>.....|
|00000330| 00 00 00 00 0e 00 00 00 | 00 10 00 00 00 00 0a 00 |........|........|
|00000340| 00 00 00 0a 00 00 00 00 | 0c 00 00 00 00 34 00 00 |........|.....4..|
|00000350| 00 02 07 00 00 00 00 76 | 00 00 00 ff 4d 4f 44 55 |.......v|....MODU|
|00000360| 4c 45 20 4f 62 78 4c 69 | 6e 65 73 3b 0d 0d 09 49 |LE ObxLi|nes;...I|
|00000370| 4d 50 4f 52 54 20 44 6f | 6d 61 69 6e 73 2c 20 53 |MPORT Do|mains, S|
|00000380| 74 6f 72 65 73 2c 20 50 | 6f 72 74 73 2c 20 4d 6f |tores, P|orts, Mo|
|00000390| 64 65 6c 73 2c 20 56 69 | 65 77 73 2c 20 43 6f 6e |dels, Vi|ews, Con|
|000003a0| 74 72 6f 6c 6c 65 72 73 | 2c 20 50 72 6f 70 65 72 |trollers|, Proper|
|000003b0| 74 69 65 73 3b 0d 0d 09 | 43 4f 4e 53 54 20 6d 69 |ties;...|CONST mi|
|000003c0| 6e 56 65 72 73 69 6f 6e | 20 3d 20 30 3b 20 6d 61 |nVersion| = 0; ma|
|000003d0| 78 56 65 72 73 69 6f 6e | 20 3d 20 30 3b 0d 0d 09 |xVersion| = 0;...|
|000003e0| 54 59 50 45 0d 09 09 4c | 69 6e 65 20 3d 20 50 4f |TYPE...L|ine = PO|
|000003f0| 49 4e 54 45 52 20 54 4f | 20 52 45 43 4f 52 44 0d |INTER TO| RECORD.|
|00000400| 09 09 09 6e 65 78 74 3a | 20 4c 69 6e 65 3b 0d 09 |...next:| Line;..|
|00000410| 09 09 78 30 2c 20 79 30 | 2c 20 78 31 2c 20 79 31 |..x0, y0|, x1, y1|
|00000420| 3a 20 4c 4f 4e 47 49 4e | 54 0d 09 09 45 4e 44 3b |: LONGIN|T...END;|
|00000430| 0d 0d 09 09 4d 6f 64 65 | 6c 20 3d 20 50 4f 49 4e |....Mode|l = POIN|
|00000440| 54 45 52 20 54 4f 20 52 | 45 43 4f 52 44 20 28 4d |TER TO R|ECORD (M|
|00000450| 6f 64 65 6c 73 2e 4d 6f | 64 65 6c 44 65 73 63 29 |odels.Mo|delDesc)|
|00000460| 0d 09 09 09 6c 69 6e 65 | 73 3a 20 4c 69 6e 65 0d |....line|s: Line.|
|00000470| 09 09 45 4e 44 3b 0d 0d | 09 09 56 69 65 77 20 3d |..END;..|..View =|
|00000480| 20 50 4f 49 4e 54 45 52 | 20 54 4f 20 52 45 43 4f | POINTER| TO RECO|
|00000490| 52 44 20 28 56 69 65 77 | 73 2e 56 69 65 77 44 65 |RD (View|s.ViewDe|
|000004a0| 73 63 29 0d 09 09 09 63 | 6f 6c 6f 72 3a 20 50 6f |sc)....c|olor: Po|
|000004b0| 72 74 73 2e 43 6f 6c 6f | 72 3b 0d 09 09 09 67 72 |rts.Colo|r;....gr|
|000004c0| 61 70 68 3a 20 4d 6f 64 | 65 6c 0d 09 09 45 4e 44 |aph: Mod|el...END|
|000004d0| 3b 0d 0d 09 09 55 70 64 | 61 74 65 4d 73 67 20 3d |;....Upd|ateMsg =|
|000004e0| 20 52 45 43 4f 52 44 20 | 28 4d 6f 64 65 6c 73 2e | RECORD |(Models.|
|000004f0| 55 70 64 61 74 65 4d 73 | 67 29 0d 09 09 09 6c 2c |UpdateMs|g)....l,|
|00000500| 20 74 2c 20 72 2c 20 62 | 3a 20 4c 4f 4e 47 49 4e | t, r, b|: LONGIN|
|00000510| 54 0d 09 09 45 4e 44 3b | 0d 0d 09 09 4c 69 6e 65 |T...END;|....Line|
|00000520| 4f 70 20 3d 20 50 4f 49 | 4e 54 45 52 20 54 4f 20 |Op = POI|NTER TO |
|00000530| 52 45 43 4f 52 44 20 28 | 44 6f 6d 61 69 6e 73 2e |RECORD (|Domains.|
|00000540| 4f 70 65 72 61 74 69 6f | 6e 44 65 73 63 29 0d 09 |Operatio|nDesc)..|
|00000550| 09 09 67 72 61 70 68 3a | 20 4d 6f 64 65 6c 3b 0d |..graph:| Model;.|
|00000560| 09 09 09 6c 69 6e 65 3a | 20 4c 69 6e 65 0d 09 09 |...line:| Line...|
|00000570| 45 4e 44 3b 0d 0d 09 09 | 43 6f 6c 6f 72 4f 70 20 |END;....|ColorOp |
|00000580| 3d 20 50 4f 49 4e 54 45 | 52 20 54 4f 20 52 45 43 |= POINTE|R TO REC|
|00000590| 4f 52 44 20 28 44 6f 6d | 61 69 6e 73 2e 4f 70 65 |ORD (Dom|ains.Ope|
|000005a0| 72 61 74 69 6f 6e 44 65 | 73 63 29 0d 09 09 09 76 |rationDe|sc)....v|
|000005b0| 69 65 77 3a 20 56 69 65 | 77 3b 0d 09 09 09 63 6f |iew: Vie|w;....co|
|000005c0| 6c 6f 72 3a 20 50 6f 72 | 74 73 2e 43 6f 6c 6f 72 |lor: Por|ts.Color|
|000005d0| 0d 09 09 45 4e 44 3b 0d | 0d 0d 09 50 52 4f 43 45 |...END;.|...PROCE|
|000005e0| 44 55 52 45 20 47 65 74 | 42 6f 78 20 28 78 30 2c |DURE Get|Box (x0,|
|000005f0| 20 79 30 2c 20 78 31 2c | 20 79 31 3a 20 4c 4f 4e | y0, x1,| y1: LON|
|00000600| 47 49 4e 54 3b 20 56 41 | 52 20 6c 2c 20 74 2c 20 |GINT; VA|R l, t, |
|00000610| 72 2c 20 62 3a 20 4c 4f | 4e 47 49 4e 54 29 3b 0d |r, b: LO|NGINT);.|
|00000620| 09 42 45 47 49 4e 0d 09 | 09 49 46 20 78 30 20 3e |.BEGIN..|.IF x0 >|
|00000630| 20 78 31 20 54 48 45 4e | 20 6c 20 3a 3d 20 78 31 | x1 THEN| l := x1|
|00000640| 3b 20 72 20 3a 3d 20 78 | 30 20 45 4c 53 45 20 6c |; r := x|0 ELSE l|
|00000650| 20 3a 3d 20 78 30 3b 20 | 72 20 3a 3d 20 78 31 20 | := x0; |r := x1 |
|00000660| 45 4e 44 3b 0d 09 09 49 | 46 20 79 30 20 3e 20 79 |END;...I|F y0 > y|
|00000670| 31 20 54 48 45 4e 20 74 | 20 3a 3d 20 79 31 3b 20 |1 THEN t| := y1; |
|00000680| 62 20 3a 3d 20 79 30 20 | 45 4c 53 45 20 74 20 3a |b := y0 |ELSE t :|
|00000690| 3d 20 79 30 3b 20 62 20 | 3a 3d 20 79 31 20 45 4e |= y0; b |:= y1 EN|
|000006a0| 44 3b 0d 09 09 49 4e 43 | 28 72 2c 20 50 6f 72 74 |D;...INC|(r, Port|
|000006b0| 73 2e 70 6f 69 6e 74 29 | 3b 20 49 4e 43 28 62 2c |s.point)|; INC(b,|
|000006c0| 20 50 6f 72 74 73 2e 70 | 6f 69 6e 74 29 0d 09 45 | Ports.p|oint)..E|
|000006d0| 4e 44 20 47 65 74 42 6f | 78 3b 0d 0d 0d 09 50 52 |ND GetBo|x;....PR|
|000006e0| 4f 43 45 44 55 52 45 20 | 28 6f 70 3a 20 4c 69 6e |OCEDURE |(op: Lin|
|000006f0| 65 4f 70 29 20 44 6f 3b | 0d 09 09 56 41 52 20 6c |eOp) Do;|...VAR l|
|00000700| 3a 20 4c 69 6e 65 3b 20 | 6d 73 67 3a 20 55 70 64 |: Line; |msg: Upd|
|00000710| 61 74 65 4d 73 67 3b 0d | 09 42 45 47 49 4e 0d 09 |ateMsg;.|.BEGIN..|
|00000720| 09 6c 20 3a 3d 20 6f 70 | 2e 6c 69 6e 65 3b 0d 09 |.l := op|.line;..|
|00000730| 09 49 46 20 6c 20 23 20 | 6f 70 2e 67 72 61 70 68 |.IF l # |op.graph|
|00000740| 2e 6c 69 6e 65 73 20 54 | 48 45 4e 09 28 2a 20 69 |.lines T|HEN.(* i|
|00000750| 6e 73 65 72 74 20 6f 70 | 2e 6c 69 6e 65 20 2a 29 |nsert op|.line *)|
|00000760| 0d 09 09 09 41 53 53 45 | 52 54 28 6c 20 23 20 4e |....ASSE|RT(l # N|
|00000770| 49 4c 2c 20 31 30 30 29 | 3b 20 41 53 53 45 52 54 |IL, 100)|; ASSERT|
|00000780| 28 6c 2e 6e 65 78 74 20 | 3d 20 6f 70 2e 67 72 61 |(l.next |= op.gra|
|00000790| 70 68 2e 6c 69 6e 65 73 | 2c 20 31 30 31 29 3b 0d |ph.lines|, 101);.|
|000007a0| 09 09 09 6f 70 2e 67 72 | 61 70 68 2e 6c 69 6e 65 |...op.gr|aph.line|
|000007b0| 73 20 3a 3d 20 6c 0d 09 | 09 45 4c 53 45 09 28 2a |s := l..|.ELSE.(*|
|000007c0| 20 64 65 6c 65 74 65 20 | 6f 70 2e 6c 69 6e 65 20 | delete |op.line |
|000007d0| 2a 29 0d 09 09 09 41 53 | 53 45 52 54 28 6c 20 3d |*)....AS|SERT(l =|
|000007e0| 20 6f 70 2e 67 72 61 70 | 68 2e 6c 69 6e 65 73 2c | op.grap|h.lines,|
|000007f0| 20 31 30 32 29 3b 0d 09 | 09 09 6f 70 2e 67 72 61 | 102);..|..op.gra|
|00000800| 70 68 2e 6c 69 6e 65 73 | 20 3a 3d 20 6c 2e 6e 65 |ph.lines| := l.ne|
|00000810| 78 74 0d 09 09 45 4e 44 | 3b 0d 09 09 47 65 74 42 |xt...END|;...GetB|
|00000820| 6f 78 28 6c 2e 78 30 2c | 20 6c 2e 79 30 2c 20 6c |ox(l.x0,| l.y0, l|
|00000830| 2e 78 31 2c 20 6c 2e 79 | 31 2c 20 6d 73 67 2e 6c |.x1, l.y|1, msg.l|
|00000840| 2c 20 6d 73 67 2e 74 2c | 20 6d 73 67 2e 72 2c 20 |, msg.t,| msg.r, |
|00000850| 6d 73 67 2e 62 29 3b 20 | 4d 6f 64 65 6c 73 2e 42 |msg.b); |Models.B|
|00000860| 72 6f 61 64 63 61 73 74 | 28 6f 70 2e 67 72 61 70 |roadcast|(op.grap|
|00000870| 68 2c 20 6d 73 67 29 0d | 09 45 4e 44 20 44 6f 3b |h, msg).|.END Do;|
|00000880| 0d 0d 09 50 52 4f 43 45 | 44 55 52 45 20 28 6d 3a |...PROCE|DURE (m:|
|00000890| 20 4d 6f 64 65 6c 29 20 | 49 6e 74 65 72 6e 61 6c | Model) |Internal|
|000008a0| 69 7a 65 20 28 56 41 52 | 20 72 64 3a 20 53 74 6f |ize (VAR| rd: Sto|
|000008b0| 72 65 73 2e 52 65 61 64 | 65 72 29 3b 0d 09 09 56 |res.Read|er);...V|
|000008c0| 41 52 20 74 68 69 73 56 | 65 72 73 69 6f 6e 3a 20 |AR thisV|ersion: |
|000008d0| 53 48 4f 52 54 49 4e 54 | 3b 20 78 30 3a 20 4c 4f |SHORTINT|; x0: LO|
|000008e0| 4e 47 49 4e 54 3b 20 70 | 3a 20 4c 69 6e 65 3b 0d |NGINT; p|: Line;.|
|000008f0| 09 42 45 47 49 4e 0d 09 | 09 6d 2e 49 6e 74 65 72 |.BEGIN..|.m.Inter|
|00000900| 6e 61 6c 69 7a 65 5e 28 | 72 64 29 3b 0d 09 09 49 |nalize^(|rd);...I|
|00000910| 46 20 7e 72 64 2e 63 61 | 6e 63 65 6c 6c 65 64 20 |F ~rd.ca|ncelled |
|00000920| 54 48 45 4e 0d 09 09 09 | 72 64 2e 52 65 61 64 56 |THEN....|rd.ReadV|
|00000930| 65 72 73 69 6f 6e 28 6d | 69 6e 56 65 72 73 69 6f |ersion(m|inVersio|
|00000940| 6e 2c 20 6d 61 78 56 65 | 72 73 69 6f 6e 2c 20 74 |n, maxVe|rsion, t|
|00000950| 68 69 73 56 65 72 73 69 | 6f 6e 29 3b 0d 09 09 09 |hisVersi|on);....|
|00000960| 49 46 20 7e 72 64 2e 63 | 61 6e 63 65 6c 6c 65 64 |IF ~rd.c|ancelled|
|00000970| 20 54 48 45 4e 0d 09 09 | 09 09 72 64 2e 52 65 61 | THEN...|..rd.Rea|
|00000980| 64 4c 49 6e 74 28 78 30 | 29 3b 20 6d 2e 6c 69 6e |dLInt(x0|); m.lin|
|00000990| 65 73 20 3a 3d 20 4e 49 | 4c 3b 0d 09 09 09 09 57 |es := NI|L;.....W|
|000009a0| 48 49 4c 45 20 78 30 20 | 23 20 4d 49 4e 28 4c 4f |HILE x0 |# MIN(LO|
|000009b0| 4e 47 49 4e 54 29 20 44 | 4f 0d 09 09 09 09 09 4e |NGINT) D|O......N|
|000009c0| 45 57 28 70 29 3b 20 70 | 2e 6e 65 78 74 20 3a 3d |EW(p); p|.next :=|
|000009d0| 20 6d 2e 6c 69 6e 65 73 | 3b 20 6d 2e 6c 69 6e 65 | m.lines|; m.line|
|000009e0| 73 20 3a 3d 20 70 3b 0d | 09 09 09 09 09 70 2e 78 |s := p;.|.....p.x|
|000009f0| 30 20 3a 3d 20 78 30 3b | 20 72 64 2e 52 65 61 64 |0 := x0;| rd.Read|
|00000a00| 4c 49 6e 74 28 70 2e 79 | 30 29 3b 20 72 64 2e 52 |LInt(p.y|0); rd.R|
|00000a10| 65 61 64 4c 49 6e 74 28 | 70 2e 78 31 29 3b 20 72 |eadLInt(|p.x1); r|
|00000a20| 64 2e 52 65 61 64 4c 49 | 6e 74 28 70 2e 79 31 29 |d.ReadLI|nt(p.y1)|
|00000a30| 3b 0d 09 09 09 09 09 72 | 64 2e 52 65 61 64 4c 49 |;......r|d.ReadLI|
|00000a40| 6e 74 28 78 30 29 0d 09 | 09 09 09 45 4e 44 0d 09 |nt(x0)..|...END..|
|00000a50| 09 09 45 4e 44 0d 09 09 | 45 4e 44 0d 09 45 4e 44 |..END...|END..END|
|00000a60| 20 49 6e 74 65 72 6e 61 | 6c 69 7a 65 3b 0d 0d 09 | Interna|lize;...|
|00000a70| 50 52 4f 43 45 44 55 52 | 45 20 28 6d 3a 20 4d 6f |PROCEDUR|E (m: Mo|
|00000a80| 64 65 6c 29 20 45 78 74 | 65 72 6e 61 6c 69 7a 65 |del) Ext|ernalize|
|00000a90| 20 28 56 41 52 20 77 72 | 3a 20 53 74 6f 72 65 73 | (VAR wr|: Stores|
|00000aa0| 2e 57 72 69 74 65 72 29 | 3b 0d 09 09 56 41 52 20 |.Writer)|;...VAR |
|00000ab0| 70 3a 20 4c 69 6e 65 3b | 0d 09 42 45 47 49 4e 0d |p: Line;|..BEGIN.|
|00000ac0| 09 09 6d 2e 45 78 74 65 | 72 6e 61 6c 69 7a 65 5e |..m.Exte|rnalize^|
|00000ad0| 28 77 72 29 3b 0d 09 09 | 77 72 2e 57 72 69 74 65 |(wr);...|wr.Write|
|00000ae0| 56 65 72 73 69 6f 6e 28 | 6d 61 78 56 65 72 73 69 |Version(|maxVersi|
|00000af0| 6f 6e 29 3b 0d 09 09 70 | 20 3a 3d 20 6d 2e 6c 69 |on);...p| := m.li|
|00000b00| 6e 65 73 3b 0d 09 09 57 | 48 49 4c 45 20 70 20 23 |nes;...W|HILE p #|
|00000b10| 20 4e 49 4c 20 44 4f 0d | 09 09 09 77 72 2e 57 72 | NIL DO.|...wr.Wr|
|00000b20| 69 74 65 4c 49 6e 74 28 | 70 2e 78 30 29 3b 20 77 |iteLInt(|p.x0); w|
|00000b30| 72 2e 57 72 69 74 65 4c | 49 6e 74 28 70 2e 79 30 |r.WriteL|Int(p.y0|
|00000b40| 29 3b 20 77 72 2e 57 72 | 69 74 65 4c 49 6e 74 28 |); wr.Wr|iteLInt(|
|00000b50| 70 2e 78 31 29 3b 20 77 | 72 2e 57 72 69 74 65 4c |p.x1); w|r.WriteL|
|00000b60| 49 6e 74 28 70 2e 79 31 | 29 3b 0d 09 09 09 70 20 |Int(p.y1|);....p |
|00000b70| 3a 3d 20 70 2e 6e 65 78 | 74 0d 09 09 45 4e 44 3b |:= p.nex|t...END;|
|00000b80| 0d 09 09 77 72 2e 57 72 | 69 74 65 4c 49 6e 74 28 |...wr.Wr|iteLInt(|
|00000b90| 4d 49 4e 28 4c 4f 4e 47 | 49 4e 54 29 29 0d 09 45 |MIN(LONG|INT))..E|
|00000ba0| 4e 44 20 45 78 74 65 72 | 6e 61 6c 69 7a 65 3b 0d |ND Exter|nalize;.|
|00000bb0| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 28 6d 3a 20 |..PROCED|URE (m: |
|00000bc0| 4d 6f 64 65 6c 29 20 43 | 6f 70 79 41 6c 6c 46 72 |Model) C|opyAllFr|
|00000bd0| 6f 6d 20 28 73 6f 75 72 | 63 65 3a 20 4d 6f 64 65 |om (sour|ce: Mode|
|00000be0| 6c 73 2e 4d 6f 64 65 6c | 29 3b 0d 09 42 45 47 49 |ls.Model|);..BEGI|
|00000bf0| 4e 0d 09 09 6d 2e 6c 69 | 6e 65 73 20 3a 3d 20 73 |N...m.li|nes := s|
|00000c00| 6f 75 72 63 65 28 4d 6f | 64 65 6c 29 2e 6c 69 6e |ource(Mo|del).lin|
|00000c10| 65 73 09 28 2a 20 6c 69 | 6e 65 73 20 61 72 65 20 |es.(* li|nes are |
|00000c20| 69 6d 6d 75 74 61 62 6c | 65 20 61 6e 64 20 74 68 |immutabl|e and th|
|00000c30| 75 73 20 63 61 6e 20 62 | 65 20 73 68 61 72 65 64 |us can b|e shared|
|00000c40| 20 2a 29 0d 09 45 4e 44 | 20 43 6f 70 79 41 6c 6c | *)..END| CopyAll|
|00000c50| 46 72 6f 6d 3b 0d 0d 09 | 50 52 4f 43 45 44 55 52 |From;...|PROCEDUR|
|00000c60| 45 20 28 6d 3a 20 4d 6f | 64 65 6c 29 20 49 6e 69 |E (m: Mo|del) Ini|
|00000c70| 74 46 72 6f 6d 20 28 73 | 6f 75 72 63 65 3a 20 4d |tFrom (s|ource: M|
|00000c80| 6f 64 65 6c 73 2e 4d 6f | 64 65 6c 29 3b 09 28 2a |odels.Mo|del);.(*|
|00000c90| 20 64 6f 20 6e 6f 74 68 | 69 6e 67 20 2a 29 0d 09 | do noth|ing *)..|
|00000ca0| 45 4e 44 20 49 6e 69 74 | 46 72 6f 6d 3b 0d 0d 09 |END Init|From;...|
|00000cb0| 50 52 4f 43 45 44 55 52 | 45 20 28 6d 3a 20 4d 6f |PROCEDUR|E (m: Mo|
|00000cc0| 64 65 6c 29 20 49 6e 73 | 65 72 74 20 28 78 30 2c |del) Ins|ert (x0,|
|00000cd0| 20 79 30 2c 20 78 31 2c | 20 79 31 3a 20 4c 4f 4e | y0, x1,| y1: LON|
|00000ce0| 47 49 4e 54 29 3b 0d 09 | 09 56 41 52 20 6f 70 3a |GINT);..|.VAR op:|
|00000cf0| 20 4c 69 6e 65 4f 70 3b | 20 70 3a 20 4c 69 6e 65 | LineOp;| p: Line|
|00000d00| 3b 0d 09 42 45 47 49 4e | 0d 09 09 4e 45 57 28 6f |;..BEGIN|...NEW(o|
|00000d10| 70 29 3b 20 6f 70 2e 67 | 72 61 70 68 20 3a 3d 20 |p); op.g|raph := |
|00000d20| 6d 3b 0d 09 09 4e 45 57 | 28 70 29 3b 20 70 2e 6e |m;...NEW|(p); p.n|
|00000d30| 65 78 74 20 3a 3d 20 6d | 2e 6c 69 6e 65 73 3b 20 |ext := m|.lines; |
|00000d40| 6f 70 2e 6c 69 6e 65 20 | 3a 3d 20 70 3b 0d 09 09 |op.line |:= p;...|
|00000d50| 70 2e 78 30 20 3a 3d 20 | 78 30 3b 20 70 2e 79 30 |p.x0 := |x0; p.y0|
|00000d60| 20 3a 3d 20 79 30 3b 20 | 70 2e 78 31 20 3a 3d 20 | := y0; |p.x1 := |
|00000d70| 78 31 3b 20 70 2e 79 31 | 20 3a 3d 20 79 31 3b 0d |x1; p.y1| := y1;.|
|00000d80| 09 09 4d 6f 64 65 6c 73 | 2e 44 6f 28 6d 2c 20 22 |..Models|.Do(m, "|
|00000d90| 49 6e 73 65 72 74 20 4c | 69 6e 65 22 2c 20 6f 70 |Insert L|ine", op|
|00000da0| 29 0d 09 45 4e 44 20 49 | 6e 73 65 72 74 3b 0d 0d |)..END I|nsert;..|
|00000db0| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 28 6f 70 3a |..PROCED|URE (op:|
|00000dc0| 20 43 6f 6c 6f 72 4f 70 | 29 20 44 6f 3b 0d 09 09 | ColorOp|) Do;...|
|00000dd0| 56 41 52 20 63 6f 6c 6f | 72 3a 20 50 6f 72 74 73 |VAR colo|r: Ports|
|00000de0| 2e 43 6f 6c 6f 72 3b 0d | 09 42 45 47 49 4e 0d 09 |.Color;.|.BEGIN..|
|00000df0| 09 63 6f 6c 6f 72 20 3a | 3d 20 6f 70 2e 76 69 65 |.color :|= op.vie|
|00000e00| 77 2e 63 6f 6c 6f 72 3b | 09 28 2a 20 73 61 76 65 |w.color;|.(* save|
|00000e10| 20 6f 6c 64 20 73 74 61 | 74 65 20 2a 29 0d 09 09 | old sta|te *)...|
|00000e20| 6f 70 2e 76 69 65 77 2e | 63 6f 6c 6f 72 20 3a 3d |op.view.|color :=|
|00000e30| 20 6f 70 2e 63 6f 6c 6f | 72 3b 09 28 2a 20 73 65 | op.colo|r;.(* se|
|00000e40| 74 20 6e 65 77 20 73 74 | 61 74 65 20 2a 29 0d 09 |t new st|ate *)..|
|00000e50| 09 56 69 65 77 73 2e 55 | 70 64 61 74 65 28 6f 70 |.Views.U|pdate(op|
|00000e60| 2e 76 69 65 77 2c 20 56 | 69 65 77 73 2e 6b 65 65 |.view, V|iews.kee|
|00000e70| 70 46 72 61 6d 65 73 29 | 3b 09 28 2a 20 72 65 73 |pFrames)|;.(* res|
|00000e80| 74 6f 72 65 20 65 76 65 | 72 79 74 68 69 6e 67 20 |tore eve|rything |
|00000e90| 2a 29 0d 09 09 6f 70 2e | 63 6f 6c 6f 72 20 3a 3d |*)...op.|color :=|
|00000ea0| 20 63 6f 6c 6f 72 09 28 | 2a 20 6f 6c 64 20 73 74 | color.(|* old st|
|00000eb0| 61 74 65 20 62 65 63 6f | 6d 65 73 20 6e 65 77 20 |ate beco|mes new |
|00000ec0| 73 74 61 74 65 20 66 6f | 72 20 75 6e 64 6f 20 2a |state fo|r undo *|
|00000ed0| 29 0d 09 45 4e 44 20 44 | 6f 3b 0d 0d 0d 09 50 52 |)..END D|o;....PR|
|00000ee0| 4f 43 45 44 55 52 45 20 | 28 76 3a 20 56 69 65 77 |OCEDURE |(v: View|
|00000ef0| 29 20 49 6e 74 65 72 6e | 61 6c 69 7a 65 20 28 56 |) Intern|alize (V|
|00000f00| 41 52 20 72 64 3a 20 53 | 74 6f 72 65 73 2e 52 65 |AR rd: S|tores.Re|
|00000f10| 61 64 65 72 29 3b 0d 09 | 09 56 41 52 20 74 68 69 |ader);..|.VAR thi|
|00000f20| 73 56 65 72 73 69 6f 6e | 3a 20 53 48 4f 52 54 49 |sVersion|: SHORTI|
|00000f30| 4e 54 3b 20 73 3a 20 53 | 74 6f 72 65 73 2e 53 74 |NT; s: S|tores.St|
|00000f40| 6f 72 65 3b 0d 09 42 45 | 47 49 4e 0d 09 09 76 2e |ore;..BE|GIN...v.|
|00000f50| 49 6e 74 65 72 6e 61 6c | 69 7a 65 5e 28 72 64 29 |Internal|ize^(rd)|
|00000f60| 3b 0d 09 09 49 46 20 7e | 72 64 2e 63 61 6e 63 65 |;...IF ~|rd.cance|
|00000f70| 6c 6c 65 64 20 54 48 45 | 4e 0d 09 09 09 72 64 2e |lled THE|N....rd.|
|00000f80| 52 65 61 64 56 65 72 73 | 69 6f 6e 28 6d 69 6e 56 |ReadVers|ion(minV|
|00000f90| 65 72 73 69 6f 6e 2c 20 | 6d 61 78 56 65 72 73 69 |ersion, |maxVersi|
|00000fa0| 6f 6e 2c 20 74 68 69 73 | 56 65 72 73 69 6f 6e 29 |on, this|Version)|
|00000fb0| 3b 0d 09 09 09 49 46 20 | 7e 72 64 2e 63 61 6e 63 |;....IF |~rd.canc|
|00000fc0| 65 6c 6c 65 64 20 54 48 | 45 4e 0d 09 09 09 09 72 |elled TH|EN.....r|
|00000fd0| 64 2e 52 65 61 64 4c 49 | 6e 74 28 76 2e 63 6f 6c |d.ReadLI|nt(v.col|
|00000fe0| 6f 72 29 3b 0d 09 09 09 | 09 72 64 2e 52 65 61 64 |or);....|.rd.Read|
|00000ff0| 53 74 6f 72 65 28 73 29 | 3b 20 41 53 53 45 52 54 |Store(s)|; ASSERT|
|00001000| 28 73 20 23 20 4e 49 4c | 2c 20 31 30 30 29 3b 0d |(s # NIL|, 100);.|
|00001010| 09 09 09 09 49 46 20 73 | 20 49 53 20 4d 6f 64 65 |....IF s| IS Mode|
|00001020| 6c 20 54 48 45 4e 0d 09 | 09 09 09 09 76 2e 49 6e |l THEN..|....v.In|
|00001030| 69 74 4d 6f 64 65 6c 28 | 73 28 4d 6f 64 65 6c 29 |itModel(|s(Model)|
|00001040| 29 0d 09 09 09 09 45 4c | 53 45 0d 09 09 09 09 09 |).....EL|SE......|
|00001050| 72 64 2e 54 75 72 6e 49 | 6e 74 6f 41 6c 69 65 6e |rd.TurnI|ntoAlien|
|00001060| 28 53 74 6f 72 65 73 2e | 61 6c 69 65 6e 43 6f 6d |(Stores.|alienCom|
|00001070| 70 6f 6e 65 6e 74 29 0d | 09 09 09 09 45 4e 44 0d |ponent).|....END.|
|00001080| 09 09 09 45 4e 44 0d 09 | 09 45 4e 44 0d 09 45 4e |...END..|.END..EN|
|00001090| 44 20 49 6e 74 65 72 6e | 61 6c 69 7a 65 3b 0d 0d |D Intern|alize;..|
|000010a0| 09 50 52 4f 43 45 44 55 | 52 45 20 28 76 3a 20 56 |.PROCEDU|RE (v: V|
|000010b0| 69 65 77 29 20 45 78 74 | 65 72 6e 61 6c 69 7a 65 |iew) Ext|ernalize|
|000010c0| 20 28 56 41 52 20 77 72 | 3a 20 53 74 6f 72 65 73 | (VAR wr|: Stores|
|000010d0| 2e 57 72 69 74 65 72 29 | 3b 0d 09 42 45 47 49 4e |.Writer)|;..BEGIN|
|000010e0| 0d 09 09 76 2e 45 78 74 | 65 72 6e 61 6c 69 7a 65 |...v.Ext|ernalize|
|000010f0| 5e 28 77 72 29 3b 0d 09 | 09 77 72 2e 57 72 69 74 |^(wr);..|.wr.Writ|
|00001100| 65 56 65 72 73 69 6f 6e | 28 6d 61 78 56 65 72 73 |eVersion|(maxVers|
|00001110| 69 6f 6e 29 3b 0d 09 09 | 77 72 2e 57 72 69 74 65 |ion);...|wr.Write|
|00001120| 4c 49 6e 74 28 76 2e 63 | 6f 6c 6f 72 29 3b 0d 09 |LInt(v.c|olor);..|
|00001130| 09 77 72 2e 57 72 69 74 | 65 53 74 6f 72 65 28 76 |.wr.Writ|eStore(v|
|00001140| 2e 67 72 61 70 68 29 0d | 09 45 4e 44 20 45 78 74 |.graph).|.END Ext|
|00001150| 65 72 6e 61 6c 69 7a 65 | 3b 0d 0d 09 50 52 4f 43 |ernalize|;...PROC|
|00001160| 45 44 55 52 45 20 28 76 | 3a 20 56 69 65 77 29 20 |EDURE (v|: View) |
|00001170| 43 6f 70 79 46 72 6f 6d | 20 28 73 6f 75 72 63 65 |CopyFrom| (source|
|00001180| 3a 20 56 69 65 77 73 2e | 56 69 65 77 29 3b 0d 09 |: Views.|View);..|
|00001190| 42 45 47 49 4e 0d 09 09 | 76 2e 43 6f 70 79 46 72 |BEGIN...|v.CopyFr|
|000011a0| 6f 6d 5e 28 73 6f 75 72 | 63 65 29 3b 0d 09 09 57 |om^(sour|ce);...W|
|000011b0| 49 54 48 20 73 6f 75 72 | 63 65 3a 20 56 69 65 77 |ITH sour|ce: View|
|000011c0| 20 44 4f 0d 09 09 09 76 | 2e 63 6f 6c 6f 72 20 3a | DO....v|.color :|
|000011d0| 3d 20 73 6f 75 72 63 65 | 2e 63 6f 6c 6f 72 0d 09 |= source|.color..|
|000011e0| 09 45 4e 44 0d 09 45 4e | 44 20 43 6f 70 79 46 72 |.END..EN|D CopyFr|
|000011f0| 6f 6d 3b 0d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |om;...PR|OCEDURE |
|00001200| 28 76 3a 20 56 69 65 77 | 29 20 49 6e 69 74 4d 6f |(v: View|) InitMo|
|00001210| 64 65 6c 20 28 6d 3a 20 | 4d 6f 64 65 6c 73 2e 4d |del (m: |Models.M|
|00001220| 6f 64 65 6c 29 3b 0d 09 | 42 45 47 49 4e 0d 09 09 |odel);..|BEGIN...|
|00001230| 76 2e 67 72 61 70 68 20 | 3a 3d 20 6d 28 4d 6f 64 |v.graph |:= m(Mod|
|00001240| 65 6c 29 0d 09 45 4e 44 | 20 49 6e 69 74 4d 6f 64 |el)..END| InitMod|
|00001250| 65 6c 3b 0d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |el;...PR|OCEDURE |
|00001260| 28 76 3a 20 56 69 65 77 | 29 20 54 68 69 73 4d 6f |(v: View|) ThisMo|
|00001270| 64 65 6c 20 28 29 3a 20 | 4d 6f 64 65 6c 73 2e 4d |del (): |Models.M|
|00001280| 6f 64 65 6c 3b 0d 09 42 | 45 47 49 4e 0d 09 09 52 |odel;..B|EGIN...R|
|00001290| 45 54 55 52 4e 20 76 2e | 67 72 61 70 68 0d 09 45 |ETURN v.|graph..E|
|000012a0| 4e 44 20 54 68 69 73 4d | 6f 64 65 6c 3b 0d 0d 09 |ND ThisM|odel;...|
|000012b0| 50 52 4f 43 45 44 55 52 | 45 20 28 76 3a 20 56 69 |PROCEDUR|E (v: Vi|
|000012c0| 65 77 29 20 52 65 73 74 | 6f 72 65 20 28 66 3a 20 |ew) Rest|ore (f: |
|000012d0| 56 69 65 77 73 2e 46 72 | 61 6d 65 3b 20 6c 2c 20 |Views.Fr|ame; l, |
|000012e0| 74 2c 20 72 2c 20 62 3a | 20 4c 4f 4e 47 49 4e 54 |t, r, b:| LONGINT|
|000012f0| 29 3b 0d 09 09 56 41 52 | 20 70 3a 20 4c 69 6e 65 |);...VAR| p: Line|
|00001300| 3b 0d 09 42 45 47 49 4e | 0d 09 09 70 20 3a 3d 20 |;..BEGIN|...p := |
|00001310| 76 2e 67 72 61 70 68 2e | 6c 69 6e 65 73 3b 0d 09 |v.graph.|lines;..|
|00001320| 09 57 48 49 4c 45 20 70 | 20 23 20 4e 49 4c 20 44 |.WHILE p| # NIL D|
|00001330| 4f 0d 09 09 09 66 2e 44 | 72 61 77 4c 69 6e 65 28 |O....f.D|rawLine(|
|00001340| 70 2e 78 30 2c 20 70 2e | 79 30 2c 20 70 2e 78 31 |p.x0, p.|y0, p.x1|
|00001350| 2c 20 70 2e 79 31 2c 20 | 66 2e 64 6f 74 2c 20 76 |, p.y1, |f.dot, v|
|00001360| 2e 63 6f 6c 6f 72 29 3b | 0d 09 09 09 70 20 3a 3d |.color);|....p :=|
|00001370| 20 70 2e 6e 65 78 74 0d | 09 09 45 4e 44 0d 09 45 | p.next.|..END..E|
|00001380| 4e 44 20 52 65 73 74 6f | 72 65 3b 0d 0d 09 50 52 |ND Resto|re;...PR|
|00001390| 4f 43 45 44 55 52 45 20 | 28 76 3a 20 56 69 65 77 |OCEDURE |(v: View|
|000013a0| 29 20 48 61 6e 64 6c 65 | 4d 6f 64 65 6c 4d 73 67 |) Handle|ModelMsg|
|000013b0| 20 28 56 41 52 20 6d 73 | 67 3a 20 4d 6f 64 65 6c | (VAR ms|g: Model|
|000013c0| 73 2e 4d 65 73 73 61 67 | 65 29 3b 0d 09 42 45 47 |s.Messag|e);..BEG|
|000013d0| 49 4e 0d 09 09 57 49 54 | 48 20 6d 73 67 3a 20 55 |IN...WIT|H msg: U|
|000013e0| 70 64 61 74 65 4d 73 67 | 20 44 4f 0d 09 09 09 56 |pdateMsg| DO....V|
|000013f0| 69 65 77 73 2e 55 70 64 | 61 74 65 49 6e 28 76 2c |iews.Upd|ateIn(v,|
|00001400| 20 6d 73 67 2e 6c 2c 20 | 6d 73 67 2e 74 2c 20 6d | msg.l, |msg.t, m|
|00001410| 73 67 2e 72 2c 20 6d 73 | 67 2e 62 2c 20 56 69 65 |sg.r, ms|g.b, Vie|
|00001420| 77 73 2e 6b 65 65 70 46 | 72 61 6d 65 73 29 0d 09 |ws.keepF|rames)..|
|00001430| 09 45 4c 53 45 0d 09 09 | 45 4e 44 0d 09 45 4e 44 |.ELSE...|END..END|
|00001440| 20 48 61 6e 64 6c 65 4d | 6f 64 65 6c 4d 73 67 3b | HandleM|odelMsg;|
|00001450| 0d 0d 09 50 52 4f 43 45 | 44 55 52 45 20 28 76 3a |...PROCE|DURE (v:|
|00001460| 20 56 69 65 77 29 20 53 | 65 74 43 6f 6c 6f 72 20 | View) S|etColor |
|00001470| 28 63 6f 6c 6f 72 3a 20 | 50 6f 72 74 73 2e 43 6f |(color: |Ports.Co|
|00001480| 6c 6f 72 29 3b 0d 09 09 | 56 41 52 20 6f 70 3a 20 |lor);...|VAR op: |
|00001490| 43 6f 6c 6f 72 4f 70 3b | 0d 09 42 45 47 49 4e 0d |ColorOp;|..BEGIN.|
|000014a0| 09 09 4e 45 57 28 6f 70 | 29 3b 20 6f 70 2e 76 69 |..NEW(op|); op.vi|
|000014b0| 65 77 20 3a 3d 20 76 3b | 20 6f 70 2e 63 6f 6c 6f |ew := v;| op.colo|
|000014c0| 72 20 3a 3d 20 63 6f 6c | 6f 72 3b 20 56 69 65 77 |r := col|or; View|
|000014d0| 73 2e 44 6f 28 76 2c 20 | 22 53 65 74 20 43 6f 6c |s.Do(v, |"Set Col|
|000014e0| 6f 72 22 2c 20 6f 70 29 | 0d 09 45 4e 44 20 53 65 |or", op)|..END Se|
|000014f0| 74 43 6f 6c 6f 72 3b 0d | 0d 09 50 52 4f 43 45 44 |tColor;.|..PROCED|
|00001500| 55 52 45 20 28 76 3a 20 | 56 69 65 77 29 20 48 61 |URE (v: |View) Ha|
|00001510| 6e 64 6c 65 43 74 72 6c | 4d 73 67 20 28 66 3a 20 |ndleCtrl|Msg (f: |
|00001520| 56 69 65 77 73 2e 46 72 | 61 6d 65 3b 20 56 41 52 |Views.Fr|ame; VAR|
|00001530| 20 6d 73 67 3a 20 43 6f | 6e 74 72 6f 6c 6c 65 72 | msg: Co|ntroller|
|00001540| 73 2e 4d 65 73 73 61 67 | 65 3b 0d 09 09 09 09 09 |s.Messag|e;......|
|00001550| 09 09 09 09 09 09 09 09 | 09 09 09 56 41 52 20 66 |........|...VAR f|
|00001560| 6f 63 75 73 3a 20 56 69 | 65 77 73 2e 56 69 65 77 |ocus: Vi|ews.View|
|00001570| 29 3b 0d 09 09 56 41 52 | 20 78 30 2c 20 79 30 2c |);...VAR| x0, y0,|
|00001580| 20 78 31 2c 20 79 31 2c | 20 78 2c 20 79 2c 20 72 | x1, y1,| x, y, r|
|00001590| 65 73 2c 20 6c 2c 20 74 | 2c 20 72 2c 20 62 3a 20 |es, l, t|, r, b: |
|000015a0| 4c 4f 4e 47 49 4e 54 3b | 20 6d 6f 64 69 66 69 65 |LONGINT;| modifie|
|000015b0| 72 73 3a 20 53 45 54 3b | 20 69 73 44 6f 77 6e 3a |rs: SET;| isDown:|
|000015c0| 20 42 4f 4f 4c 45 41 4e | 3b 0d 09 42 45 47 49 4e | BOOLEAN|;..BEGIN|
|000015d0| 0d 09 09 57 49 54 48 20 | 6d 73 67 3a 20 43 6f 6e |...WITH |msg: Con|
|000015e0| 74 72 6f 6c 6c 65 72 73 | 2e 50 6f 6c 6c 4f 70 73 |trollers|.PollOps|
|000015f0| 4d 73 67 20 44 4f 0d 09 | 09 09 6d 73 67 2e 76 61 |Msg DO..|..msg.va|
|00001600| 6c 69 64 20 3a 3d 20 7b | 43 6f 6e 74 72 6f 6c 6c |lid := {|Controll|
|00001610| 65 72 73 2e 70 61 73 74 | 65 43 68 61 72 7d 0d 09 |ers.past|eChar}..|
|00001620| 09 7c 20 6d 73 67 3a 20 | 43 6f 6e 74 72 6f 6c 6c |.| msg: |Controll|
|00001630| 65 72 73 2e 54 72 61 63 | 6b 4d 73 67 20 44 4f 0d |ers.Trac|kMsg DO.|
|00001640| 09 09 09 78 30 20 3a 3d | 20 6d 73 67 2e 78 3b 20 |...x0 :=| msg.x; |
|00001650| 79 30 20 3a 3d 20 6d 73 | 67 2e 79 3b 20 78 31 20 |y0 := ms|g.y; x1 |
|00001660| 3a 3d 20 78 30 3b 20 79 | 31 20 3a 3d 20 79 30 3b |:= x0; y|1 := y0;|
|00001670| 0d 09 09 09 66 2e 53 61 | 76 65 52 65 63 74 28 66 |....f.Sa|veRect(f|
|00001680| 2e 6c 2c 20 66 2e 74 2c | 20 66 2e 72 2c 20 66 2e |.l, f.t,| f.r, f.|
|00001690| 62 2c 20 72 65 73 29 3b | 09 28 2a 20 6f 70 65 72 |b, res);|.(* oper|
|000016a0| 61 74 69 6f 6e 20 77 61 | 73 20 73 75 63 63 65 73 |ation wa|s succes|
|000016b0| 73 66 75 6c 20 69 66 20 | 72 65 73 20 3d 20 30 20 |sful if |res = 0 |
|000016c0| 2a 29 0d 09 09 09 49 46 | 20 72 65 73 20 3d 20 30 |*)....IF| res = 0|
|000016d0| 20 54 48 45 4e 20 66 2e | 44 72 61 77 4c 69 6e 65 | THEN f.|DrawLine|
|000016e0| 28 78 30 2c 20 79 30 2c | 20 78 31 2c 20 79 31 2c |(x0, y0,| x1, y1,|
|000016f0| 20 50 6f 72 74 73 2e 70 | 6f 69 6e 74 2c 20 76 2e | Ports.p|oint, v.|
|00001700| 63 6f 6c 6f 72 29 20 45 | 4e 44 3b 0d 09 09 09 52 |color) E|ND;....R|
|00001710| 45 50 45 41 54 0d 09 09 | 09 09 66 2e 49 6e 70 75 |EPEAT...|..f.Inpu|
|00001720| 74 28 78 2c 20 79 2c 20 | 6d 6f 64 69 66 69 65 72 |t(x, y, |modifier|
|00001730| 73 2c 20 69 73 44 6f 77 | 6e 29 3b 0d 09 09 09 09 |s, isDow|n);.....|
|00001740| 49 46 20 28 78 20 23 20 | 78 31 29 20 4f 52 20 28 |IF (x # |x1) OR (|
|00001750| 79 20 23 20 79 31 29 20 | 54 48 45 4e 0d 09 09 09 |y # y1) |THEN....|
|00001760| 09 09 47 65 74 42 6f 78 | 28 78 30 2c 20 79 30 2c |..GetBox|(x0, y0,|
|00001770| 20 78 31 2c 20 79 31 2c | 20 6c 2c 20 74 2c 20 72 | x1, y1,| l, t, r|
|00001780| 2c 20 62 29 3b 20 66 2e | 52 65 73 74 6f 72 65 52 |, b); f.|RestoreR|
|00001790| 65 63 74 28 6c 2c 20 74 | 2c 20 72 2c 20 62 2c 20 |ect(l, t|, r, b, |
|000017a0| 50 6f 72 74 73 2e 6b 65 | 65 70 42 75 66 66 65 72 |Ports.ke|epBuffer|
|000017b0| 29 3b 0d 09 09 09 09 09 | 78 31 20 3a 3d 20 78 3b |);......|x1 := x;|
|000017c0| 20 79 31 20 3a 3d 20 79 | 3b 0d 09 09 09 09 09 49 | y1 := y|;......I|
|000017d0| 46 20 72 65 73 20 3d 20 | 30 20 54 48 45 4e 20 66 |F res = |0 THEN f|
|000017e0| 2e 44 72 61 77 4c 69 6e | 65 28 78 30 2c 20 79 30 |.DrawLin|e(x0, y0|
|000017f0| 2c 20 78 31 2c 20 79 31 | 2c 20 50 6f 72 74 73 2e |, x1, y1|, Ports.|
|00001800| 70 6f 69 6e 74 2c 20 76 | 2e 63 6f 6c 6f 72 29 20 |point, v|.color) |
|00001810| 45 4e 44 0d 09 09 09 09 | 45 4e 44 0d 09 09 09 55 |END.....|END....U|
|00001820| 4e 54 49 4c 20 7e 69 73 | 44 6f 77 6e 3b 0d 09 09 |NTIL ~is|Down;...|
|00001830| 09 47 65 74 42 6f 78 28 | 78 30 2c 20 79 30 2c 20 |.GetBox(|x0, y0, |
|00001840| 78 31 2c 20 79 31 2c 20 | 6c 2c 20 74 2c 20 72 2c |x1, y1, |l, t, r,|
|00001850| 20 62 29 3b 20 66 2e 52 | 65 73 74 6f 72 65 52 65 | b); f.R|estoreRe|
|00001860| 63 74 28 6c 2c 20 74 2c | 20 72 2c 20 62 2c 20 50 |ct(l, t,| r, b, P|
|00001870| 6f 72 74 73 2e 64 69 73 | 70 6f 73 65 42 75 66 66 |orts.dis|poseBuff|
|00001880| 65 72 29 3b 0d 09 09 09 | 76 2e 67 72 61 70 68 2e |er);....|v.graph.|
|00001890| 49 6e 73 65 72 74 28 78 | 30 2c 20 79 30 2c 20 78 |Insert(x|0, y0, x|
|000018a0| 31 2c 20 79 31 29 0d 09 | 09 7c 20 6d 73 67 3a 20 |1, y1)..|.| msg: |
|000018b0| 43 6f 6e 74 72 6f 6c 6c | 65 72 73 2e 45 64 69 74 |Controll|ers.Edit|
|000018c0| 4d 73 67 20 44 4f 0d 09 | 09 09 49 46 20 6d 73 67 |Msg DO..|..IF msg|
|000018d0| 2e 6f 70 20 3d 20 43 6f | 6e 74 72 6f 6c 6c 65 72 |.op = Co|ntroller|
|000018e0| 73 2e 70 61 73 74 65 43 | 68 61 72 20 54 48 45 4e |s.pasteC|har THEN|
|000018f0| 0d 09 09 09 09 43 41 53 | 45 20 6d 73 67 2e 63 68 |.....CAS|E msg.ch|
|00001900| 61 72 20 4f 46 0d 09 09 | 09 09 7c 20 22 42 22 3a |ar OF...|..| "B":|
|00001910| 20 76 2e 53 65 74 43 6f | 6c 6f 72 28 50 6f 72 74 | v.SetCo|lor(Port|
|00001920| 73 2e 62 6c 61 63 6b 29 | 0d 09 09 09 09 7c 20 22 |s.black)|.....| "|
|00001930| 72 22 3a 20 76 2e 53 65 | 74 43 6f 6c 6f 72 28 50 |r": v.Se|tColor(P|
|00001940| 6f 72 74 73 2e 72 65 64 | 29 0d 09 09 09 09 7c 20 |orts.red|).....| |
|00001950| 22 67 22 3a 20 76 2e 53 | 65 74 43 6f 6c 6f 72 28 |"g": v.S|etColor(|
|00001960| 50 6f 72 74 73 2e 67 72 | 65 65 6e 29 0d 09 09 09 |Ports.gr|een)....|
|00001970| 09 7c 20 22 62 22 3a 20 | 76 2e 53 65 74 43 6f 6c |.| "b": |v.SetCol|
|00001980| 6f 72 28 50 6f 72 74 73 | 2e 62 6c 75 65 29 0d 09 |or(Ports|.blue)..|
|00001990| 09 09 09 45 4c 53 45 0d | 09 09 09 09 45 4e 44 0d |...ELSE.|....END.|
|000019a0| 09 09 09 45 4e 44 0d 09 | 09 45 4c 53 45 0d 09 09 |...END..|.ELSE...|
|000019b0| 45 4e 44 0d 09 45 4e 44 | 20 48 61 6e 64 6c 65 43 |END..END| HandleC|
|000019c0| 74 72 6c 4d 73 67 3b 0d | 0d 09 50 52 4f 43 45 44 |trlMsg;.|..PROCED|
|000019d0| 55 52 45 20 28 76 3a 20 | 56 69 65 77 29 20 48 61 |URE (v: |View) Ha|
|000019e0| 6e 64 6c 65 50 72 6f 70 | 4d 73 67 20 28 56 41 52 |ndleProp|Msg (VAR|
|000019f0| 20 6d 73 67 3a 20 50 72 | 6f 70 65 72 74 69 65 73 | msg: Pr|operties|
|00001a00| 2e 4d 65 73 73 61 67 65 | 29 3b 0d 09 42 45 47 49 |.Message|);..BEGI|
|00001a10| 4e 0d 09 09 57 49 54 48 | 20 6d 73 67 3a 20 50 72 |N...WITH| msg: Pr|
|00001a20| 6f 70 65 72 74 69 65 73 | 2e 46 6f 63 75 73 50 72 |operties|.FocusPr|
|00001a30| 65 66 20 44 4f 0d 09 09 | 09 6d 73 67 2e 73 65 74 |ef DO...|.msg.set|
|00001a40| 46 6f 63 75 73 20 3a 3d | 20 54 52 55 45 0d 09 09 |Focus :=| TRUE...|
|00001a50| 45 4c 53 45 0d 09 09 45 | 4e 44 0d 09 45 4e 44 20 |ELSE...E|ND..END |
|00001a60| 48 61 6e 64 6c 65 50 72 | 6f 70 4d 73 67 3b 0d 0d |HandlePr|opMsg;..|
|00001a70| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 44 65 70 6f |..PROCED|URE Depo|
|00001a80| 73 69 74 2a 3b 0d 09 09 | 56 41 52 20 6d 3a 20 4d |sit*;...|VAR m: M|
|00001a90| 6f 64 65 6c 3b 20 76 3a | 20 56 69 65 77 3b 0d 09 |odel; v:| View;..|
|00001aa0| 42 45 47 49 4e 0d 09 09 | 4e 45 57 28 6d 29 3b 0d |BEGIN...|NEW(m);.|
|00001ab0| 09 09 4e 45 57 28 76 29 | 3b 20 76 2e 49 6e 69 74 |..NEW(v)|; v.Init|
|00001ac0| 4d 6f 64 65 6c 28 6d 29 | 3b 0d 09 09 56 69 65 77 |Model(m)|;...View|
|00001ad0| 73 2e 44 65 70 6f 73 69 | 74 28 76 29 0d 09 45 4e |s.Deposi|t(v)..EN|
|00001ae0| 44 20 44 65 70 6f 73 69 | 74 3b 0d 0d 45 4e 44 20 |D Deposi|t;..END |
|00001af0| 4f 62 78 4c 69 6e 65 73 | 2e 82 f1 54 65 78 74 43 |ObxLines|...TextC|
|00001b00| 6f 6e 74 72 6f 6c 6c 65 | 72 73 2e 53 74 64 43 74 |ontrolle|rs.StdCt|
|00001b10| 72 6c 44 65 73 63 00 f1 | 54 65 78 74 43 6f 6e 74 |rlDesc..|TextCont|
|00001b20| 72 6f 6c 6c 65 72 73 2e | 43 6f 6e 74 72 6f 6c 6c |rollers.|Controll|
|00001b30| 65 72 44 65 73 63 00 f1 | 43 6f 6e 74 61 69 6e 65 |erDesc..|Containe|
|00001b40| 72 73 2e 43 6f 6e 74 72 | 6f 6c 6c 65 72 44 65 73 |rs.Contr|ollerDes|
|00001b50| 63 00 f1 43 6f 6e 74 72 | 6f 6c 6c 65 72 73 2e 43 |c..Contr|ollers.C|
|00001b60| 6f 6e 74 72 6f 6c 6c 65 | 72 44 65 73 63 00 f2 04 |ontrolle|rDesc...|
|00001b70| 00 00 00 00 00 00 00 14 | 00 00 00 00 00 00 00 09 |........|........|
|00001b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 82 |........|........|
|00001b90| f1 54 65 78 74 52 75 6c | 65 72 73 2e 53 74 64 52 |.TextRul|ers.StdR|
|00001ba0| 75 6c 65 72 44 65 73 63 | 00 f1 54 65 78 74 52 75 |ulerDesc|..TextRu|
|00001bb0| 6c 65 72 73 2e 52 75 6c | 65 72 44 65 73 63 00 f2 |lers.Rul|erDesc..|
|00001bc0| 03 00 00 00 00 00 00 00 | ab 00 00 00 07 00 00 00 |........|........|
|00001bd0| a3 00 00 00 00 00 00 83 | f1 54 65 78 74 52 75 6c |........|.TextRul|
|00001be0| 65 72 73 2e 53 74 64 53 | 74 79 6c 65 44 65 73 63 |ers.StdS|tyleDesc|
|00001bf0| 00 f1 54 65 78 74 52 75 | 6c 65 72 73 2e 53 74 79 |..TextRu|lers.Sty|
|00001c00| 6c 65 44 65 73 63 00 f2 | 07 00 00 00 00 00 00 00 |leDesc..|........|
|00001c10| 00 00 00 00 08 00 00 00 | 5a 00 00 00 00 00 00 00 |........|Z.......|
|00001c20| 82 f1 54 65 78 74 52 75 | 6c 65 72 73 2e 41 74 74 |..TextRu|lers.Att|
|00001c30| 72 69 62 75 74 65 73 44 | 65 73 63 00 f2 04 00 00 |ributesD|esc.....|
|00001c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 24 00 00 |........|.....$..|
|00001c50| 00 00 01 00 00 00 00 00 | 00 00 00 20 a3 5a 00 00 |........|... .Z..|
|00001c60| 00 00 00 18 f0 01 00 38 | 63 00 00 01 00 00 00 01 |.......8|c.......|
|00001c70| 00 00 00 00 00 00 00 82 | f2 0d 00 00 00 00 00 00 |........|........|
|00001c80| 00 00 00 00 00 00 00 00 | 00 22 00 00 00 00 00 00 |........|."......|
|00001c90| 00 00 01 00 00 00 00 48 | 65 6c 76 65 74 69 63 61 |.......H|elvetica|
|00001ca0| 00 7c be 01 00 00 00 00 | 00 90 01 00 00 00 00 00 |.|......|........|
|00001cb0| 00 00 00 00 00 00 00 e0 | 8c 01 00 e0 8c 01 00 00 |........|........|
|00001cc0| 30 5c 00 e0 b9 3b 3e 82 | f1 44 6f 63 75 6d 65 6e |0\...;>.|.Documen|
|00001cd0| 74 73 2e 43 6f 6e 74 72 | 6f 6c 6c 65 72 44 65 73 |ts.Contr|ollerDes|
|00001ce0| 63 00 f2 10 00 00 00 00 | 00 00 00 00 00 00 00 00 |c.......|........|
|00001cf0| 00 00 00 08 00 00 00 00 | 00 00 00 00 09 00 00 00 |........|........|
|00001d00| 00 94 4d 73 00 18 2b a3 | 00 80 fc 0a 00 80 fc 0a |..Ms..+.|........|
|00001d10| 00 a0 9f 65 00 98 2e 98 | 00 00 00 00 00 00 00 00 |...e....|........|
|00001d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d80| 00 00 01 00 00 00 01 0c | 00 00 00 0c 00 00 00 32 |........|.......2|
|00001d90| 64 20 53 65 6d 69 62 6f | 6c 64 49 74 61 6c 69 63 |d Semibo|ldItalic|
|00001da0| 4f 73 46 00 10 a4 f0 14 | 41 47 61 72 61 6d 6f 6e |OsF.....|AGaramon|
|00001db0| 05 4c 69 6e 65 73 02 00 | 00 00 50 61 72 74 53 49 |.Lines..|..PartSI|
|00001dc0| 54 21 00 00 00 00 00 00 | 00 00 00 00 48 8f 00 00 |T!......|....H...|
|00001dd0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00001de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001df0| 00 00 ae 04 81 ae 00 00 | 00 00 00 00 01 3e 65 6e |........|.....>en|
|00001e00| 7a 20 47 72 6f 74 65 73 | 6b 00 11 0b 4d 13 41 6b |z Grotes|k...M.Ak|
|00001e10| 7a 69 64 65 6e 7a 20 47 | 72 6f 74 65 73 6b 20 42 |zidenz G|rotesk B|
|00001e20| 45 00 11 24 27 18 41 6b | 7a 69 64 65 6e 7a 20 47 |E..$'.Ak|zidenz G|
|00001e30| 72 6f 74 65 73 6b 20 42 | 45 20 42 6f 6c 64 00 05 |rotesk B|E Bold..|
|00001e40| fe bc 1a 41 6b 7a 69 64 | 65 6e 7a 20 47 72 6f 74 |...Akzid|enz Grot|
|00001e50| 65 73 6b 20 42 45 20 42 | 6f 6c 64 43 6e 00 08 7e |esk BE B|oldCn..~|
|00001e60| f8 1a 41 6b 7a 69 64 65 | 6e 7a 20 47 72 6f 74 65 |..Akzide|nz Grote|
|00001e70| 73 6b 20 42 45 20 42 6f | 6c 64 45 78 00 08 86 4e |sk BE Bo|ldEx...N|
|00001e80| 00 00 00 08 00 3b 00 05 | 01 da 01 f8 00 00 01 00 |.....;..|........|
|00001e90| 00 00 01 0c 00 00 00 0c | 00 00 00 32 01 29 fb 98 |........|...2.)..|
|00001ea0| 17 82 00 00 00 1c 00 32 | 00 00 57 4e 53 50 00 00 |.......2|..WNSP..|
|00001eb0| 00 0a 00 01 ff ff 00 00 | 00 00 01 2a 00 e0 00 00 |........|...*....|
|00001ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+